home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 52
/
64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_B.d64
/
listing 5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
701b
|
28 lines
5 gosub60000:rem tabellen deffinieren
10 input"was nun ";be$:rem befehl
20 gosub51000 :rem zerlegung
30 print:print"be$=";chr$(34);be$;chr$(34):print
40 fori=1to10
50 :print"be$(";right$(str$(i),len(str$(i))-1);")=";chr$(34);be$(i);chr$(34)
60 next:print"anzahl der woerter (wz) :";wz:print
70 goto10
51000 rembe$ in be$(1)-be$(10) zerlegen
51010 fori=1to10:be$(i)="":next
51020 wz=1
51030 fori=1tolen(be$)
51040 :ifmid$(be$,i,1)=" "thengosub51100:goto51060
51045 :ifwz>10thenprint"eingabe ist zu lang !":i=len(be$)+1:goto51060
51050 :be$(wz)=be$(wz)+mid$(be$,i,1)
51060 nexti
51070 return
51100 rem au$ woerter aussortieren
51110 ic=0:fori1=1toaz
51120 :ifbe$(wz)=au$(i1)thenic=1
51130 nexti1
51140 ific=0thenwz=wz+1:return
51150 be$(wz)="":return
60000 rem *** tabellen-deffinieren ***
60005 data der,die,das,den, ,ueber,unter,auf,in
60010 az=9:fori=1toaz:readau$(i):next
60015 return